inherited frmManPagamentoFatura: TfrmManPagamentoFatura
  Left = 135
  Top = 90
  Caption = 'Manuten'#231#227'o do pagamento de fatura'
  ClientHeight = 497
  ClientWidth = 1016
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel [0]
    Left = 0
    Top = 468
    Width = 1024
    Height = 29
    Align = alCustom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object Label3: TLabel
      Left = 662
      Top = 8
      Width = 99
      Height = 13
      Caption = 'Fatura em aberto'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 411
      Top = 7
      Width = 97
      Height = 13
      Caption = 'Fatura paga total'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 795
      Top = 8
      Width = 110
      Height = 13
      Caption = 'Fatura paga parcial'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 543
      Top = 8
      Width = 85
      Height = 13
      Caption = 'Fatura Vencida'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object btnMarcarTodos: TSpeedButton
      Left = 4
      Top = 4
      Width = 129
      Height = 22
      Caption = 'Marcar Todos'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
      OnClick = btnMarcarTodosClick
    end
    object btnDesmarcar: TSpeedButton
      Left = 137
      Top = 4
      Width = 129
      Height = 22
      Caption = 'Desmarcar'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF3333993333339993333377FF3333377FF3399993333339
        993337777FF3333377F3393999333333993337F777FF333337FF993399933333
        399377F3777FF333377F993339993333399377F33777FF33377F993333999333
        399377F333777FF3377F993333399933399377F3333777FF377F993333339993
        399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
        99333773FF3333777733339993333339933333773FFFFFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
      OnClick = btnDesmarcarClick
    end
    object Panel5: TPanel
      Left = 640
      Top = 6
      Width = 19
      Height = 17
      Color = clWhite
      TabOrder = 0
    end
    object Panel6: TPanel
      Left = 389
      Top = 5
      Width = 19
      Height = 17
      Color = clGreen
      TabOrder = 1
    end
    object Panel7: TPanel
      Left = 773
      Top = 6
      Width = 19
      Height = 17
      Color = clYellow
      TabOrder = 2
    end
    object Panel8: TPanel
      Left = 522
      Top = 6
      Width = 19
      Height = 17
      Color = clRed
      TabOrder = 3
    end
  end
  inherited Panel3: TPanel [1]
    Width = 1016
    Height = 140
    inherited Label2: TLabel
      Width = 43
      Caption = 'Pedido:'
      Font.Color = clGreen
    end
    inherited Label1: TLabel
      Left = 364
      Width = 88
      Caption = 'Representante:'
      Font.Color = clGreen
    end
    inherited btnPesquisa: TSpeedButton
      Left = 794
      OnClick = btnPesquisaClick
    end
    object Label10: TLabel [3]
      Left = 9
      Top = 42
      Width = 41
      Height = 13
      Caption = 'Fatura:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object lbl1: TLabel [4]
      Left = 407
      Top = 41
      Width = 45
      Height = 13
      Caption = 'Cliente:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    inherited edtCodigo: TEdit
      Width = 291
      ParentFont = False
    end
    inherited edtDescricao: TEdit
      Left = 458
      Width = 321
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 67
      Width = 347
      Height = 63
      Caption = 'Vencimento da Fatura'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      object Label4: TLabel
        Left = 10
        Top = 26
        Width = 43
        Height = 13
        Caption = 'Inicial: '
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 184
        Top = 25
        Width = 35
        Height = 13
        Caption = 'Final: '
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
      end
      object dtInicial: TDateTimePicker
        Left = 56
        Top = 21
        Width = 115
        Height = 21
        CalColors.TextColor = clGreen
        Date = 40191.694543356490000000
        Time = 40191.694543356490000000
        ShowCheckbox = True
        Checked = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object dtFinal: TDateTimePicker
        Left = 228
        Top = 22
        Width = 108
        Height = 21
        CalColors.TextColor = clGreen
        Date = 40191.694543356490000000
        Time = 40191.694543356490000000
        ShowCheckbox = True
        Checked = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    object edtFatura: TEdit
      Left = 62
      Top = 38
      Width = 291
      Height = 19
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      OnEnter = edtCodigoEnter
      OnExit = edtCodigoExit
    end
    object edtCliente: TEdit
      Left = 458
      Top = 37
      Width = 321
      Height = 19
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      OnEnter = edtCodigoEnter
      OnExit = edtCodigoExit
      OnKeyPress = edtCodigoKeyPress
    end
    object grp1: TGroupBox
      Left = 362
      Top = 67
      Width = 416
      Height = 64
      Caption = 'Status da Fatura'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      object rbPagaPg: TRadioButton
        Left = 248
        Top = 39
        Width = 113
        Height = 17
        Caption = 'Para Pagamento'
        TabOrder = 0
      end
      object rbTodas: TRadioButton
        Left = 12
        Top = 16
        Width = 113
        Height = 17
        Caption = 'Todas'
        Checked = True
        TabOrder = 1
        TabStop = True
      end
      object rbPgTotal: TRadioButton
        Left = 12
        Top = 38
        Width = 113
        Height = 17
        Caption = 'Pagas Total'
        TabOrder = 2
      end
      object rbPgParcial: TRadioButton
        Left = 247
        Top = 17
        Width = 113
        Height = 17
        Caption = 'Pagas Parcial'
        TabOrder = 3
      end
      object rbVencida: TRadioButton
        Left = 135
        Top = 16
        Width = 85
        Height = 17
        Caption = 'Vencidas'
        TabOrder = 4
      end
      object rbEmAberto: TRadioButton
        Left = 135
        Top = 38
        Width = 85
        Height = 17
        Caption = 'Em aberto'
        TabOrder = 5
      end
    end
  end
  inherited Panel4: TPanel [2]
    Top = 140
    Width = 911
    Height = 331
    Align = alCustom
    inherited DBGrid1: TDBGrid
      Width = 907
      Height = 327
      Color = clWhite
      Font.Height = -9
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          ButtonStyle = cbsEllipsis
          Expanded = False
          FieldName = 'BMAR'
          Title.Caption = '   '
          Width = 16
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sStatus'
          Title.Caption = ' '
          Width = 19
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RAZAO'
          Title.Caption = 'Cliente'
          Width = 180
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DS_FATURA_PARCELA'
          Title.Caption = 'Fatura'
          Width = 87
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NOME'
          Title.Caption = 'Representante'
          Width = 167
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PARCELA'
          Title.Alignment = taCenter
          Title.Caption = 'Parcela'
          Width = 47
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'DT_VENCIMENTO'
          Title.Alignment = taCenter
          Title.Caption = 'Vencimento'
          Width = 76
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'sVlFatura'
          Title.Alignment = taRightJustify
          Title.Caption = 'Fatura'
          Width = 89
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'sVlRecebido'
          Title.Alignment = taRightJustify
          Title.Caption = 'Recebido'
          Width = 94
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sVlDesconto'
          Title.Alignment = taRightJustify
          Title.Caption = 'Desconto'
          Width = 86
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'DT_ENTREGA'
          Title.Alignment = taCenter
          Title.Caption = 'Emiss'#227'o'
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'sDias'
          Title.Alignment = taCenter
          Title.Caption = 'Dias'
          Visible = False
        end>
    end
    object ckMarcado: TDBCheckBox
      Left = 17
      Top = 24
      Width = 12
      Height = 11
      Color = clWhite
      DataField = 'BMAR'
      DataSource = DS_Grid
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      Visible = False
    end
  end
  inherited Panel2: TPanel [3]
    Left = 909
    Top = 140
    Width = 107
    Height = 357
    inherited btnFechar: TSpeedButton
      Top = 313
      Width = 102
      Height = 43
    end
    inherited btnIncluir: TSpeedButton
      Top = 2
      Width = 102
      Height = 43
      Caption = 'Pagamento'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555FFFFFFFFFF55555000000000055555577777777775FFFF00B8B8B8B8B0
        0000775F5555555777770B0B8B8B8B8B0FF07F75F555555575F70FB0B8B8B8B8
        B0F07F575FFFFFFFF7F70BFB0000000000F07F557777777777570FBFBF0FFFFF
        FFF07F55557F5FFFFFF70BFBFB0F000000F07F55557F777777570FBFBF0FFFFF
        FFF075F5557F5FFFFFF750FBFB0F000000F0575FFF7F777777575700000FFFFF
        FFF05577777F5FF55FF75555550F00FF00005555557F775577775555550FFFFF
        0F055555557F55557F755555550FFFFF00555555557FFFFF7755555555000000
        0555555555777777755555555555555555555555555555555555}
      OnClick = btnIncluirClick
    end
    inherited btnEditar: TSpeedButton
      Left = 132
      Top = 261
      Visible = False
    end
    inherited btnExcluir: TSpeedButton
      Top = 131
      Width = 102
      Height = 43
      Caption = 'Estorno'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FFF33FF333FFF339993370733
        999333777FF37FF377733339993000399933333777F777F77733333399970799
        93333333777F7377733333333999399933333333377737773333333333990993
        3333333333737F73333333333331013333333333333777FF3333333333910193
        333333333337773FF3333333399000993333333337377737FF33333399900099
        93333333773777377FF333399930003999333337773777F777FF339993370733
        9993337773337333777333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
    end
    inherited Bevel3: TBevel
      Left = 124
      Top = 286
      Visible = False
    end
    inherited Bevel1: TBevel
      Left = 135
      Top = 466
      Visible = False
    end
    object SpeedButton2: TSpeedButton
      Left = 3
      Top = 88
      Width = 102
      Height = 43
      Caption = 'Visualizar'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        555555555555555555555555555555555555555FFFFFFFFFF555550000000000
        55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
        B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
        000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
        555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
        55555575FFF75555555555700007555555555557777555555555555555555555
        5555555555555555555555555555555555555555555555555555}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 3
      Top = 45
      Width = 102
      Height = 43
      Caption = 'Alterar'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
        B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
        B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
        0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
        55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
        55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
        55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
        5555575FFF755555555557000075555555555577775555555555}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton3Click
    end
  end
  inherited DS_Grid: TDataSource
    Left = 528
    Top = 321
  end
  inherited QR_Grid: TADOQuery
    OnCalcFields = QR_GridCalcFields
    Parameters = <
      item
        Name = 'pDtInicial'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'pDtFinal'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT TB_REPRESENTANTE.CD_REPRESENTANTE,'
      'TB_REPRESENTANTE.NOME,'
      'TB_FATURA.CD_FATURA,'
      'TB_FATURA.DS_FATURA,'
      'TB_FATURA_PARCELA.DS_FATURA_PARCELA, '
      'TB_FATURA.CD_PEDIDO,'
      'TB_FATURA_PARCELA.CD_FATURA_PARCELA,'
      'TB_FATURA_PARCELA.PARCELA,'
      'TB_FATURA_PARCELA.DT_VENCIMENTO,'
      'TB_FATURA_PARCELA.DT_RECEBIMENTO,'
      'TB_FATURA_PARCELA.VALOR_FATURA,'
      'TB_FATURA_PARCELA.VALOR_RECEBIDO,'
      'TB_FATURA_PARCELA.BMAR,'
      'TB_FATURA_PARCELA.VALOR_DESCONTO,'
      'TB_CLIENTE.RAZAO,'
      'TB_FATURA.DT_ENTREGA'
      
        'FROM TB_REPRESENTANTE, TB_PEDIDO, TB_FATURA, TB_FATURA_PARCELA, ' +
        'TB_CLIENTE'
      
        'WHERE TB_REPRESENTANTE.CD_REPRESENTANTE = TB_PEDIDO.CD_REPRESENT' +
        'ANTE'
      'AND TB_PEDIDO.CD_PEDIDO = TB_FATURA.CD_PEDIDO'
      'AND TB_FATURA.CD_FATURA = TB_FATURA_PARCELA.CD_FATURA'
      'AND TB_PEDIDO.CD_CLIENTE = TB_CLIENTE.CD_CLIENTE'
      'AND TB_FATURA_PARCELA.DT_VENCIMENTO >= :pDtInicial'
      'AND TB_FATURA_PARCELA.DT_VENCIMENTO <= :pDtFinal'
      '')
    Left = 560
    Top = 337
    object QR_GridsStatus: TStringField
      FieldKind = fkCalculated
      FieldName = 'sStatus'
      Calculated = True
    end
    object QR_GridsVlFatura: TStringField
      FieldKind = fkCalculated
      FieldName = 'sVlFatura'
      Calculated = True
    end
    object QR_GridsVlRecebido: TStringField
      FieldKind = fkCalculated
      FieldName = 'sVlRecebido'
      Calculated = True
    end
    object QR_GridNOME: TWideStringField
      FieldName = 'NOME'
      Size = 50
    end
    object QR_GridCD_PEDIDO: TWideStringField
      FieldName = 'CD_PEDIDO'
      Size = 50
    end
    object QR_GridPARCELA: TIntegerField
      FieldName = 'PARCELA'
    end
    object QR_GridDT_VENCIMENTO: TDateTimeField
      FieldName = 'DT_VENCIMENTO'
    end
    object QR_GridVALOR_FATURA: TBCDField
      FieldName = 'VALOR_FATURA'
      Precision = 19
    end
    object QR_GridVALOR_RECEBIDO: TBCDField
      FieldName = 'VALOR_RECEBIDO'
      Precision = 19
    end
    object QR_GridBMAR: TBooleanField
      FieldName = 'BMAR'
    end
    object QR_GridCD_FATURA: TAutoIncField
      FieldName = 'CD_FATURA'
      ReadOnly = True
    end
    object QR_GridCD_REPRESENTANTE: TAutoIncField
      FieldName = 'CD_REPRESENTANTE'
      ReadOnly = True
    end
    object QR_GridDS_FATURA: TWideStringField
      FieldName = 'DS_FATURA'
      Size = 50
    end
    object QR_GridCD_FATURA_PARCELA: TAutoIncField
      FieldName = 'CD_FATURA_PARCELA'
      ReadOnly = True
    end
    object QR_GridRAZAO: TWideStringField
      FieldName = 'RAZAO'
      Size = 50
    end
    object QR_GridsDias: TStringField
      FieldKind = fkCalculated
      FieldName = 'sDias'
      Calculated = True
    end
    object QR_GridDS_FATURA_PARCELA: TWideStringField
      FieldName = 'DS_FATURA_PARCELA'
      Size = 50
    end
    object QR_GridDT_ENTREGA: TDateTimeField
      FieldName = 'DT_ENTREGA'
      DisplayFormat = 'DD/MM/YYYY'
      EditMask = '!99/99/0000;1;_'
    end
    object QR_GridsVlDesconto: TStringField
      FieldKind = fkCalculated
      FieldName = 'sVlDesconto'
      Calculated = True
    end
    object QR_GridVALOR_DESCONTO: TBCDField
      FieldName = 'VALOR_DESCONTO'
      Precision = 19
    end
    object QR_GridDT_RECEBIMENTO: TDateTimeField
      FieldName = 'DT_RECEBIMENTO'
    end
  end
  object QR_Temp: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    Parameters = <>
    Left = 576
    Top = 233
  end
end
